home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 011-020 / amok19 / smallinout / test.mod < prev    next >
Text File  |  1993-11-04  |  955b  |  36 lines
  1. MODULE Test;
  2.  
  3. FROM SmallInOut IMPORT Write, WriteLn, WriteString, WriteInt, WriteHex,
  4.                        ReadString, ReadInt, ReadLongInt, Read;
  5. FROM ASCII      IMPORT eof,lf;
  6.  
  7. VAR
  8.   c: CHAR;
  9.   s: ARRAY [0..79] OF CHAR;
  10.   i: INTEGER;
  11.   l: LONGINT;
  12.  
  13. BEGIN
  14.   FOR c:="A" TO "Z" DO Write(c) END; WriteLn;
  15.   WriteLn;
  16.   WriteString("123456 "); WriteInt(123456,7); Write(" "); WriteHex(123456,6); WriteLn;
  17.   WriteString("-67890 "); WriteInt(-67890,7); Write(" "); WriteHex(-67890,6); WriteLn;
  18.   WriteLn;
  19.   WriteString("String eingeben: "); ReadString(s);
  20.   WriteString("String war: "); WriteString(s); WriteLn;
  21.   WriteLn;
  22.   WriteString("Integer eingeben: "); ReadInt(i);
  23.   WriteString("Integer war: "); WriteInt(i,10);
  24.   WriteLn;
  25.   WriteString("Longint eingeben: "); ReadLongInt(l);
  26.   WriteString("Longint war: "); WriteInt(l,10); WriteLn;
  27.   WriteLn;
  28.   WriteString("Chars eingeben: ");
  29.   REPEAT
  30.     Read(c);
  31.     Write(c);
  32.   UNTIL c=lf;
  33.   WriteLn;
  34. END Test.
  35.  
  36.